home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / mail / metamail / contrib / ServiceMail / src / mesh / config.tcl.dist next >
Encoding:
Text File  |  1993-05-07  |  2.7 KB  |  56 lines
  1. # This file defines the services supported by the local MESH installation
  2. # and some important configuration variables
  3. # many of these lines are uncommented and may need customization
  4. # to use
  5.  
  6. # first add the services source directory to the tcl library path
  7. #
  8. lappend auto_path [glob _SERVSRC_]
  9.  
  10. # now define the log file for requests (comment out if you don't want it)
  11. #
  12. #set servlog [glob ~/servlog]
  13.  
  14. # if you want some administrator to be Cc'ed on ServiceMail errors,
  15. # uncomment this line and set the administrator to be his/her address or
  16. # alias
  17. #
  18. #set administrator servicemail-bugs
  19.  
  20. # next define all services
  21. #
  22. #                external-name   internal-name   source-file
  23. #
  24. #define-service   latex2ps          dolatex       _SERVSRC_/latex2ps.tcl
  25. #define-service   archive-request   dofetch       _SERVSRC_/get.tcl
  26. #define-service   get               dofetch       _SERVSRC_/get.tcl
  27. #define-service   uudecode          uudecode      _SERVSRC_/uudecode.tcl
  28. #define-service   mbsend            mbsend        _SERVSRC_/mbsend.tcl
  29. #define-service   ps2paper          doprint       _SERVSRC_/ps2paper.tcl
  30. #define-service   fax               fax           _SERVSRC_/fax.tcl
  31. #define-service   listserv          listserv      _SERVSRC_/listserv.tcl
  32. #define-service   subscribe         subscribe     _SERVSRC_/subscribe.tcl
  33. define-service   help              help          _SERVSRC_/help.tcl
  34. define-service   info              help          _SERVSRC_/help.tcl
  35. define-service   services          list-services _SERVSRC_/services.tcl
  36. #define-service   finger            finger        _SERVSRC_/finger.tcl
  37. #define-service   man               man           _SERVSRC_/man.tcl
  38. define-service   "Re:"             re            _SERVSRC_/Re.tcl
  39. #define-service  stock-download     stock-download _SERVSRC_/stock-download.tcl
  40. #define-service  stock           stock     _SERVSRC_/stock.tcl
  41. define-service  echo           echo          _SERVSRC_/echo.tcl
  42. #define-service  dis                dodis         _SERVSRC_/dis.tcl
  43. #define-service  directory          directory     _SERVSRC_/directory.tcl
  44. #define-service  register           register      _SERVSRC_/register.tcl
  45. #define-service  find               find          _SERVSRC_/find.tcl
  46. #define-service  retrieve           retrieve      _SERVSRC_/retrieve.tcl
  47. #define-service  anon-ftp           ftp           _SERVSRC_/ftp.tcl
  48. #define-service  source             source        _SERVSRC_/source.tcl
  49. #define-service  notification       notification  _SERVSRC_/notification.tcl
  50. #define-service  filter             mfilter       _SERVSRC_/filter.tcl
  51.  
  52. # patterns need an external-name and a tcl expression
  53. #
  54. #define-pattern  help \
  55. #      { [regexp -nocase "^services-help" [getfield $envelope TO]] }
  56.